home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Tools / AmigaLib / time.e < prev   
Text File  |  1995-03-30  |  568b  |  25 lines
  1. OPT MODULE
  2.  
  3. MODULE 'amigalib/io',
  4.        'amigalib/ports',
  5.        'devices/timer',
  6.        'exec/io'
  7.  
  8. EXPORT PROC timeDelay(unit, seconds, micros)
  9.   DEF port, tr:PTR TO timerequest, error=TRUE
  10.   IF port:=createPort(NIL, 0)
  11.     IF tr:=createExtIO(port, SIZEOF timerequest)
  12.       IF OpenDevice('timer.device', unit, tr, 0)=0
  13.         tr.time.secs:=seconds
  14.         tr.time.micro:=micros
  15.         tr.io.command:=TR_ADDREQUEST
  16.         DoIO(tr)
  17.         CloseDevice(tr)
  18.         error:=FALSE
  19.       ENDIF
  20.       deleteExtIO(tr)
  21.     ENDIF
  22.     deletePort(port)
  23.   ENDIF
  24. ENDPROC error
  25.